dir()
eucalipto = read.table("eucalipto.txt", header=TRUE, sep=";")
str(eucalipto)
EDITANDO ALGUNS PARMENTROS DO GRFICO
1.
plot(dap~ht, data=eucalipto, xlab="Altura(m)", ylab="DAP(cm)")
2.
plot(dap~ht, data=eucalipto, xlab="Altura(m)", ylab="DAP(cm)", tck=0.017)
3.
plot(dap~ht, data=eucalipto, xlab="Altura(m)", ylab="DAP(cm)", tck=0, bty="l")
4.
plot(dap~ht, data=eucalipto, xlab="Altura(m)", ylab="DAP(cm)", main="DAP e Altura de rvores de Eucalipto")
5.
par(cex.sub=1)
plot(dap~ht, data=eucalipto, xlab="Altura(m)", ylab="DAP(cm)", main="DAP e Altura de rvores de Eucalipto", cex.axis=2, cex.lab=2)

DOIS GRFICOS JUNTOS
1.
par(mfrow=c(1,2))
par(mar=c(5,2,5,2))
boxplot(dap~talhao, data=eucalipto, main= "A")
par(mar=c(5,2,5,2))
matrix.mean = matrix(tapply(eucalipto$dap, eucalipto$talhao, mean))
matrix.sd = matrix(tapply(eucalipto$dap, eucalipto$talhao, sd))
plot(matrix.mean~matrix.sd, main="B")


ADIVINHANDO O CDIGO
xy = read.table("xy-tutorial.txt", header=TRUE, sep=",")
str(xy)
X11()
plot(y1~x1, data=xy, ylab="Euclidian Distances", xlab="Log(Patch size)(ha)", bty="l", pch=17, tcl=0.3, cex.lab=1.1, ylim=c(0,3), xlim=c(0.5,2.3))
lm.xy1 = lm(xy$x1~xy$y1)
abline(lm.xy1, lwd=3)
mtext("a", side=3, outer=FALSE, adj=1, cex=1.5, line=-0.5)
help(plot)
xy$y1

xy$y2.f = xy$y2
xy$y2.f [xy$y2.f ==1] = "Small"
xy$y2.f [xy$y2.f ==2] = "Medium Edge"
xy$y2.f [xy$y2.f ==3] = "Medium Interior"
xy$y2.f [xy$y2.f ==4] = "Large Edge"
xy$y2.f [xy$y2.f ==5] = "Large Interior"
xy$y2.f [xy$y2.f ==6] = "Control"
xy$y2.f = factor(xy$y2.f, levels=c("Small", "Medium Edge", "Medium Interior", "Large Edge", "Large Interior", "Control"))
x11()
par(tcl=0.3, bty="l")
boxplot(x2~y2, data=xy, ylim=c(0,3), names=c("","","","","",""), outline=FALSE)
mtext(c("Small", "Medium", "Medium", "Large", "Large", "Control"),side=1,line=1,at=1:6, cex=1.1)  #at serve para eu definir a posio de cada nome
mtext(c("", "Edge", "Interior", "Edge", "Interior"),side=1,line=2,at=1:6, cex=1.1)

